home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / E / Elevator Simulator.cpt / Elevator Simulator™ / card_2134.txt < prev    next >
Encoding:
Text File  |  1987-10-19  |  5.8 KB  |  298 lines
  1. -- card: 2134 from stack: in
  2. -- bmap block id: 9311
  3. -- flags: 4000
  4. -- background id: 3754
  5. -- name: Main
  6. ----- HyperTalk script -----
  7. on openCard
  8.   --Don't you feel guilty?  Breaking in to my program?
  9.   --A program any fool could've written in 20 minutes?
  10.   --I hope so.  Because I'd've done the same thing and
  11.   --NOT felt guilty.
  12.   --Jeffrey
  13.   put "CLOSED" into field "pos"
  14.   put 0 into field "score"
  15.   put 0 into field "alt"
  16.   show button "icon" at 120,18
  17.   hide field "What?"
  18.   hide field "What?2"
  19.   hide card button ID 15
  20. end openCard
  21.  
  22.  
  23.  
  24. -- part 1 (button)
  25. -- low flags: 00
  26. -- high flags: 0000
  27. -- rect: left=385 top=103 right=125 bottom=493
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 1
  31. -- font id: 0
  32. -- text size: 12
  33. -- style flags: 0
  34. -- line height: 16
  35. -- part name: New Button
  36. ----- HyperTalk script -----
  37. on mouseUp
  38.   go card "stats"
  39.   show button "stat"
  40. end mouseUp
  41.  
  42.  
  43.  
  44. -- part 2 (button)
  45. -- low flags: 00
  46. -- high flags: 0000
  47. -- rect: left=385 top=124 right=154 bottom=493
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: New Button
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.   go card "inspect"
  59. end mouseUp
  60.  
  61.  
  62.  
  63. -- part 3 (button)
  64. -- low flags: 00
  65. -- high flags: 0000
  66. -- rect: left=437 top=270 right=321 bottom=493
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: New Button
  75. ----- HyperTalk script -----
  76. on mouseUp
  77.   go card "Help"
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 4 (button)
  83. -- low flags: 00
  84. -- high flags: 0000
  85. -- rect: left=385 top=183 right=205 bottom=493
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: New Button
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   go card "Adjacent"
  97. end mouseUp
  98.  
  99.  
  100.  
  101. -- part 5 (button)
  102. -- low flags: 00
  103. -- high flags: 0000
  104. -- rect: left=385 top=270 right=321 bottom=438
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: New Button
  113. ----- HyperTalk script -----
  114. on mouseUp
  115.   go home
  116. end mouseUp
  117.  
  118.  
  119.  
  120. -- part 6 (button)
  121. -- low flags: 00
  122. -- high flags: 0000
  123. -- rect: left=385 top=153 right=184 bottom=440
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: New Button
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   go card "Fore"
  135.   show button "return"
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part 7 (button)
  141. -- low flags: 00
  142. -- high flags: 0000
  143. -- rect: left=439 top=153 right=184 bottom=493
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: New Button
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   go card "Aft"
  155.   show button "return"
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 8 (button)
  161. -- low flags: 00
  162. -- high flags: 0000
  163. -- rect: left=300 top=48 right=109 bottom=362
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: New Button
  172. ----- HyperTalk script -----
  173. on mouseUp
  174.   go card "phone"
  175. end mouseUp
  176.  
  177.  
  178.  
  179. -- part 9 (button)
  180. -- low flags: 00
  181. -- high flags: 0000
  182. -- rect: left=385 top=65 right=104 bottom=492
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 1
  186. -- font id: 0
  187. -- text size: 12
  188. -- style flags: 0
  189. -- line height: 16
  190. -- part name: New Button
  191. ----- HyperTalk script -----
  192. on mouseUp
  193.   go card "stuff"
  194.   show button "return2"
  195. end mouseUp
  196.  
  197.  
  198.  
  199. -- part 12 (button)
  200. -- low flags: 00
  201. -- high flags: 0000
  202. -- rect: left=101 top=0 right=36 bottom=140
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 10093 / 10093
  205. -- text alignment: 1
  206. -- font id: 0
  207. -- text size: 12
  208. -- style flags: 0
  209. -- line height: 16
  210. -- part name: icon
  211.  
  212.  
  213. -- part 13 (button)
  214. -- low flags: 00
  215. -- high flags: 0000
  216. -- rect: left=336 top=128 right=142 bottom=350
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 1
  220. -- font id: 0
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: 10
  225. ----- HyperTalk script -----
  226. on mouseUp
  227.   beep
  228.   put 120 into x
  229.   put 0 into alt
  230.   put 1 into score
  231.   repeat 10
  232.     play "harpsichord"
  233.     wait 0 seconds
  234.     add 19 to x
  235.     add 11 to alt
  236.     add 1 to score
  237.     put alt into field "alt"
  238.     put score into field "score"
  239.     show button "icon" at x,18
  240.   end repeat
  241.   play "boing"
  242.   put "STUCK" into field "pos"
  243.   repeat 3
  244.     show card button ID 15
  245.     wait 1 seconds
  246.     hide card button ID 15
  247.     wait 1 seconds
  248.   end repeat
  249.   visual effect iris open
  250.   go card "score"
  251. end mouseUp
  252.  
  253.  
  254.  
  255. -- part 14 (button)
  256. -- low flags: 00
  257. -- high flags: 0000
  258. -- rect: left=317 top=205 right=217 bottom=329
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 1
  262. -- font id: 0
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: New Button
  267. ----- HyperTalk script -----
  268. on mouseUp
  269.   play "harpsichord" tempo 700 "e e e e e e e e e e e e"
  270. end mouseUp
  271.  
  272.  
  273.  
  274. -- part 15 (button)
  275. -- low flags: 80
  276. -- high flags: 8002
  277. -- rect: left=37 top=87 right=171 bottom=263
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 0 / 0
  280. -- text alignment: 1
  281. -- font id: 0
  282. -- text size: 12
  283. -- style flags: 0
  284. -- line height: 16
  285. -- part name: Elevator Door Stuck!
  286.  
  287.  
  288. -- part contents for background part 7
  289. ----- text -----
  290. CLOSED
  291.  
  292. -- part contents for background part 6
  293. ----- text -----
  294. 0
  295.  
  296. -- part contents for background part 5
  297. ----- text -----
  298. 0